home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs08.d81 / vidcon.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  21 lines
  1. 10 REM CONVERT A FILE FROM PETSCII TO ASCII
  2. 20 REM USEFUL FOR CONVERTING AN EASY-SCRIPT FILE TO A VIDTEX BUFFER
  3. 30 REM COPYRIGHT 1983 JOEL RUBIN
  4. 40 REM COMMERCIAL RIGHTS RESERVED
  5. 50 REM MAY BE FREELY DISTRIBUTED
  6. 60 REM USES JIM BUTTERFIELD'S STRING THING ROUTINE
  7. 70 A$="ABCDEFGHIJKLMNOPQ"
  8. 80 A$=A$+A$+A$+A$+A$
  9. 90 A$=A$+A$+A$
  10. 95 REM ABOVE SETS STRING FOR MAX (255)
  11. 100 POKE53281,6:POKE53280,7:PRINT"[147][158]"
  12. 110 OPEN15,8,15,"I"
  13. 120 INPUT"INPUT FILE";IP$
  14. 130 OPEN2,8,2,IP$:INPUT#15,A,B$,C,D:IFA<>0THENPRINTA;B$C;D:STOP
  15. 140 INPUT"OUTPUT FILE";OP$
  16. 150 OPEN3,8,3,OP$+",S,W":INPUT#15,A,B$,C,D:IFA<>0THENPRINTA;B$C;D:STOP
  17. 155 INPUT"ADD LINEFEEDS?";LF$
  18. 156 C=ASC(LF$+CHR$(0)):LF$=CHR$(13)+CHR$(10):IF(C=78)OR(C=206)THENLF$=CHR$(13)
  19. 160 SYS2740:SS=ST:PRINT#3,LEFT$(A$,PEEK(142))LF$;:IFSS=0THEN160
  20. 170 CLOSE2:CLOSE3
  21.